home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / tvdmx.exe / RSET.PAS < prev    next >
Pascal/Delphi Source File  |  1992-07-16  |  2KB  |  93 lines
  1.  
  2. {■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■}
  3. {                                                       }
  4. {      RSET      --General data types and constants     }
  5. {                                                       }
  6. {      Copyright (c) 1992  Randolph Beck                }
  7. {                          P.O. Box  56-0487            }
  8. {                          Orlando, FL 32856            }
  9. {                          CIS:  72361,753              }
  10. {                                                       }
  11. {■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■}
  12.  
  13. Unit RSet;
  14.  
  15. interface
  16.  
  17. type
  18.     TREALNUM    =  Real;
  19.     PREALNUM    = ^TREALNUM;
  20.  
  21.     { Using TREALNUM for floating point numbers makes it easy to
  22.       change from REAL to DOUBLE or other real number type. }
  23.  
  24.  
  25.     PBoolean    = ^Boolean;
  26.     PByte    = ^Byte;
  27.     PShortInt    = ^Shortint;
  28.     PInteger    = ^Integer;
  29.     PWord    = ^Word;
  30.     PLongInt    = ^LongInt;
  31.     PReal    = ^Real;
  32.  
  33.     PCharArray    = ^TCharArray;
  34.     TCharArray    =  array [0..32767] of char;
  35.  
  36.  
  37. const
  38.     Sunday    =   0;
  39.     Monday    =   1;
  40.     Tuesday    =   2;
  41.     Wednesday    =   3;
  42.     Thursday    =   4;
  43.     Friday    =   5;
  44.     Saturday    =   6;
  45.  
  46.     January    =   1;
  47.     February    =   2;
  48.     March    =   3;
  49.     April    =   4;
  50.     May        =   5;
  51.     June    =   6;
  52.     July    =   7;
  53.     August    =   8;
  54.     September    =   9;
  55.     October    =  10;
  56.     November    =  11;
  57.     December    =  12;
  58.  
  59.  
  60.     kbCtrlA    = $1E01;
  61.     kbCtrlB    = $3002;
  62.     kbCtrlC    = $2E03;
  63.     kbCtrlD    = $2004;
  64.     kbCtrlE    = $1205;
  65.     kbCtrlF    = $2106;
  66.     kbCtrlG    = $2207;
  67.     kbCtrlH    = $2308;
  68.     kbCtrlI    = $1709;
  69.     kbCtrlJ    = $240A;
  70.     kbCtrlK    = $250B;
  71.     kbCtrlL    = $260C;
  72.     kbCtrlM    = $320D;
  73.     kbCtrlN    = $310E;
  74.     kbCtrlO    = $180F;
  75.     kbCtrlP    = $1910;
  76.     kbCtrlQ    = $1011;
  77.     kbCtrlR    = $1312;
  78.     kbCtrlS    = $1F13;
  79.     kbCtrlT    = $1414;
  80.     kbCtrlU    = $1615;
  81.     kbCtrlV    = $2F16;
  82.     kbCtrlW    = $1117;
  83.     kbCtrlX    = $2D18;
  84.     kbCtrlY    = $1519;
  85.     kbCtrlZ    = $2C1A;
  86.     kbShiftEnter= $1C0D;
  87.  
  88.  
  89. implementation
  90.  
  91.  
  92. End.
  93.